home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / ALARM PROMPT.int < prev    next >
Text File  |  1996-12-24  |  1KB  |  39 lines
  1. 1 REM  ******************************
  2. 2 REM  *                            *
  3. 3 REM  * SAMPLE BASIC CALL SEQUENCE *
  4. 4 REM  *  FOR ALARM PROMPT ROUTINE  *
  5. 5 REM  *                            *
  6. 6 REM  ******************************
  7. 7 REM 
  8. 8 TASK=3000
  9. 10 OFF=0:TASK=200:TRAP=300:ALARM=3529
  10. 95 REM  
  11. 96 REM       ********************
  12. 97 REM        MAIN LINE SEQUENCE
  13. 98 REM       ********************
  14. 99 REM 
  15. 100 ERR=OFF:GOSUB TASK:IF ERR THEN GOSUB TRAP
  16. 101 REM 
  17. 102 REM 
  18. 110 GOTO 32767
  19. 120 REM  
  20. 121 REM  
  21. 200 INPUT ERR:REM   *** USE FOR TEST ***
  22. 210 REM  
  23. 211 REM       ********************
  24. 212 REM        PUT ERROR DETECTING
  25. 213 REM        HERE --- REPLACING
  26. 214 REM        LINE 210..........
  27. 215 REM       ********************
  28. 220 RETURN 
  29. 298 REM  
  30. 299 REM  
  31. 300  POKE 50,127:PRINT "ERROR";: POKE 50,255:PRINT " TYPE A CTRL/C":CALL ALARM
  32. 310 REM  
  33. 320 REM       ********************
  34. 321 REM        PUT ERROR RECOVERY
  35. 322 REM        ROUTINE HERE......
  36. 323 REM       ********************
  37. 330 REM  
  38. 340 RETURN 
  39.